/* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */
/*****************************************************************************
  NAME
  dbint72.ins - V3 installation script

  DESCRIPTION
    This script installs

  OWNER
    Zakia Zerhouni

  MODIFIED    DD-MMM-YY  Reason
  ekhor       31-OCT-95  added processing for trial web install
  LMurphy     19-JUN-95  Modified for Windows 95 GUI
  LMurphy     23-JAN-95  Modified for use with SQL*Net help
  zzerhoun    04-JAN-95  Created.
*****************************************************************************/
{

  if (doit)
  {
      /*****************************
      Set the VRF-INS script ratchet
      ******************************/

      bmp_home = directory_name(current_script);
      { ui_graphics("%bmp_home%\nav.bmp"); }
      [ 'DEFAULT: continue(); ]

      ins_ratchet = "7.2.2.3.1";

      permit_retry_operations = TRUE;

      execute("%installer_home%\win95.ins");

      install(w95rsf72);

      /******************
      Install the product
      *******************/

      ui_action( instantiate(installing_scripts) );
      copy(deinst);

      ui_action( instantiate(installing_executables) );
      copy(exe);
      copy(smpldir);

      ui_action( instantiate(installing_dlls) );
      copy(dll,vsn);

      if (copy_sample)
	copy(sample);

      ui_action( instantiate(modifying_config) );

      { win32_create_key("HKEY_CURRENT_USER", "Software\ORACLE\Personal Oracle7 Navigator\Local"); }
      [ 'INVALID_KEY, 'PERMISSION_DENIED, 'OS_ERROR: continue(); ]

      { win32_set_value("HKEY_CURRENT_USER", "Software\ORACLE\Personal Oracle7 Navigator\Local", "Connection", "PO7/PO7@2:"); }
      [ 'INVALID_KEY, 'PERMISSION_DENIED, 'OS_ERROR: continue(); ]      


      /*************************
      Modify Configuration files
      **************************/
	
      permit_retry_operations = FALSE;

      if (set_nav72)
	modify("NAV72",nav72,ora_config,(product_filename(current_product)));

      /*******************
        Install the parent
      ********************/

      if(member(selected_products, current_product))
      {
	if (install_parent)
		install(product_parent(current_product));
      }

      /*******************
        Register the product
      ********************/
      ui_action( instantiate(registering) );
      register(current_product);

      if (member(selected_products,current_product))
        reference(current_product);
	
      /* reference parent */
      reference(product_parent(current_product), current_product);

      reference(w95rsf72, current_product);

      permit_retry_operations = FALSE;
    }
}








